TERSE Standard Glossary 


This is a description of the vocabularies- The words are 
presented in ASCI I order. The first: line of each entrvi shows a 
symbolic description of -the action of "the word: Symbols indicating 

which parameters are -to be placed on “the stack before executing the 

word r 3 dashes (--) indicating execution/ -then any? parameters left on 

"the stack b\j "the word. In "this notation/ -the "top of "the stack is "to 
"the right . If "the place of "the word in "the input: sirring is not 

completely obvious/ it: is shown explicitly?. If no dashes are shown 

"the word does not: affect: "the stack . Symbols are used as follows: 


b 

c 

f 

m n p q r 
nnnn pppp 
ssss 


Block number 

7-bit: ASCII character code 
Flag: 0=False/ non-zero=True. 
flag retrurn @ or 1 . 

IS — b i "t integers 
The name of a word 
A sirring of characters 


All words which retrurn a 


: Immediately following "the name of 
appear within paraentheses, These 
characteristics: 


a word/ certain characters may? 
denote some special action or 


G The word may* be used only? within a colon-definition. A 

following digit CC@ or C2) indicates the number of memory) 

cells used when the word is compiled if other than one. A 

following + or — sign indicates that the word either pushes 
or pops a value on the stack during compilation. (This 
action is not related to its action during execution.) 

E The word may not normally? be compiled within a 

colon-definition. 

F The word has its immediate bit set/ it is executed 

directly?/ even when encountered during compile mode. 

U 1 ” h e word applies to a user variable (in a multi — user system 

each user would have his own copy. ) 


Unless stared otherwise/ all references to 
integers/ with the most significant bit as 
negative in two's complement form. Similarly?/ 
assumed -to be 18 -bit signed integer arithmetic 
indication unspecified. 


numbers apply? 18 -bit 
the sign bit and the 
all arithmetic will be 
with error and overflow 
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Standard Definitions 

! m p- 

Store m at: address p . 

* ( P ) * nnnn - P 

Leave address of verb nnnn on stack. A compiler directive^ * 
is executed when encountered in a colon definition; the 
address of “the following word's code field is found 
immediately (at compilation) and stored in the dictionary 
(after the address of LIT) as a literal to be placed on the 
stack at execution time. Within a colon definition/ ' nnnn 
is identical to: LIT C r nnnn * 3 

( CP) ( ssss ) 

Ingore a comment that will be delimited by a night 
parenthesis. 

m n-P 

16-bit signed multiply, p=m*n 

t m n-q 

18—bit integer addition. q = mtn 

+ ! m p- 

Add integer m to value at address p. 

+ BLOCK m-b 

Leave the sum of m plus the number of the block currently 

being interpreted. 

tLOOF ( C ) rn - — 

Add m to the loop index, exit from the loop is made when the 
resulant index reaches or passes the limit# if m is greater 
than zero; or when the index is less than C passes ) the limit# 
if m is less than zero, m may be variable. 

j m- 

Store m into the next available dicitionary cell# advancing 
the dictionary pointer. 

— m n-q 

16-bit integer subtraction: q = m-n 

— > ( F ) 

(Pronounced "next block" ) Continue interpretation with the 
next block (Equivalent to 1 +BLOCK CONTINUED). 

. m - 

Print the value on the stack as an integer# converted 
according to the current number base. 

CP) 

T ransmit 
device. 


a message delimited 


^e selected output 


.LIST 


Change output device to CRT. 
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.NLIST 

Change output device to PRINTER. 

/ m n -- q 

IG—hit signed integer divide/ q=m/n. The quotient is 
truncated and -the remainder is lost . ( Actual H def ined as 

/MOD DROP ) 

/MOD m n-r q 

1G —bit integer divide/ m/n ■ The quotient is left on -top of 
-the stack / -the remainder beneath. The remainder has -the sign 
of “the quotient/ q. 

O -— n 

Futs a 0 on “the stack. (0 is a constant) 

0< m -— f 

Leave a true flag if m is negative. 

0= m —- f 

True if m is zero. 

0 > m —— f 

True if m is positive and non-zero. 

0END BEGIN.0END 

Mark the end of a BEGIN loop. Causes endless loop. 

1 -n 



Puts a 1 

on the stack. (1 

is a CONSTANT) 

11 

q = m+ 1 

m-q 


it! 


p - 



Add 1 to 

the contents of 

location p 

i~ 

q~m— 1 

m-q 


1- ! 


p - 



Subtract 1 from the contents of location p. 

2* m-q 

q-m*2 (Shift left) 

2+ m-q 

q=m+2 (Increment b^ 2) 

Z- m --- q 

q=ffl-2 (Decrement bM 2) 

2/ m — — - q 

q=m/2 (Shift Right) 

m n- 

Drop the top two values from the stack ( to drop a double 
precision number for example). 


2DR0P 
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2DUP 

2SWAP 


;S 

< 

< < 

< = 

< > 

> 

>~ 

> > 

>R ( C ) 

? 

# 

A” 


m n —— m n m n 

Dupl icate -the “top “two values on “the stack , 
m n p q-p q m n 

Swap “two pairs of values ( e.g. double-precision numbers). 

: nnnn 

Create a dictionary entry defining nnnn as equivalent* “to the 
following sequence of TERSE words. Set STATE to compile mode. 
(Extension: Set the context vocabulary equivalent to the 
current vocabulary ) . 

( C,P ) 

Terminate a colon-definition and set STATE to immediate mode. 
( E ) 

Stop interpretation of a symbolic block. 

m n-f 

True if m < n 


C E ) m n - 

Use: m n << verbs >> 

Unlike DO...LOOP these conditionals may be employed during 
interpretation. In conduction with the words C and ] they 
ma\j foe used within a colon definition to control comp i I at ion, 
although they are not compiled. These words can foe nested. 




m 

n 

-f 

T rue 

if 

m< n 

or 

£ 

M 

E 



m 

n 

-f 

T rue 

i f 

m is 

u 

nequal to n 



m 

n 

-■— f 

True 

if 

m-n 





m 

n 

-f 

T rue 

i f 

m >n 





m 

n 

-f 

T rue 

if 

m >n 

or 

m=n — 


< E ) ■ 

Terminate a conditional interpretation 

m —— 

Push m onto top of the return stack. ( 

p --- 


sequence begun fo 1 ^ < < . 

See R) ) 


Print the value contained at address according to the current 

base .. 


p -- q 

Leave contents q of memory location p « 

A" ssss" -— q 

Makes a string similarly to ." but does not type it. Instead 
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ABORT 

ABS 

AND 

ARRAY 

ASM 

B ! 

B: 

B# 

BARRAY 

BASE 

BEGIN 


A" returns -the sirring address q. The sirring may be t^ped b\i 
COUNT TYPE or STYPE. 


Enter -the afoorlr sequence * reset stack and return stack f 
reirurn contro 1 to term i na 1 ; and printr an abort: message ( "?" 
beep ) . 


m-q. 

Leave -the absolute value of a number . 
m n-q 

Bitwise logical AND of m and n, 
m ARRAY nnnn - 

Define an array named nnnn and allocate m uninitialised words 
into -the dictionary Cor RAM). The sequence i nnnn will leave 
-the address of the i—th cell on -the sirack. The index should 
be in -the range © < = i <= m-1 , but' no check is made for 

values exceeding this range. 

C P ) 

Switch the context pointer so that dictionary searches will 
begin at the Assembler Vocabulary. A CODE define 
automatically switches the CONTEXT to ASM* 

m p- 

Store the least significant 8 bits of rn at byte —address p. 
m-q 

q=m+3@8. Used for calculating block numbers of drive B. 

p-q 

Return the 8—bit byte q found at byte-address p. 
m ARRAY nnnn - 

Define an array named nnnn and allocate rn uninitialized bytes 
into the dictionary (or RAM). The sequence i nnnn will leave 
the address of the i-th byte on the stack. The index should 
foe in the range 0 <= i <= m-1 f but no check is made for 

values exceeding this range. 

C U ) - P 

A variable containing the current number conversion base. 

C C@t ,P ) BEGIN ... WHILE ... REPEAT 
or BEGIN ... END 

Mark the start of a sequence of words to be executed 
repetitively. If ... WHILE ... REPEAT is used the loop will 
be repeated as long as the stack encountered by WHILE is TRUE 
( REPEAT merely effects an unconditional Jump back to BEGIN); 
when WHILE sees a FALSE value (©) on the stack it causes an 
immediate exit out of the loop. In case the sequence can be 
written such that the test for completion is at the end ... 
END can be used conveniently to end the loop on a TRUE value 
or to go back to BEGIN on FALSE. Both WHILE and END drop the 
value they test. 
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BELL 

BLK 

BLOCK 

BMOVE 

BPTR 

ETA 

BTABLE 

BUFFER 

BUILD 

BYE 


Sends a BELL char -to “the -terminal 
( U ) - P 

A variable containing -the number of -the block being 1 isted or 
ed i “ted . 


b-P 

Leave -the first: address of Block b. If -the block is not: 
already in memory, it is -transferred from disk intro whichever 
core buffer has been least: recently accessed - If -the block 
occupying -that: buffer has been updated/ i “t is rewritten on 
disk or tape before Block b is read into the buffer. 

P q n- 

Move the n b^tes starting at b^te-address p into the n 
b\?te —cells starting at byite-address q. The contents of p is 
moved first . 


-n 

A variable containing a pointer to the most recently used 
disk block buffer. Disk block buffers are headed b*^ a link 
to the next block and the block number followed b^ the data. 
A link of © indicates the end of the chain. 

n — — 

Convert the value n to a character string at the next 
available dictionary location (HERE) leaving the character 
count in the first b\jte . Leading spaces are added to make the 
total number of characters equal the value of the variable 
FLD . 


BTABLE nnnn ----- 

Define the beginning of a table of fortes. The values to be 
entered into the table must follow the definitions of the 
table. The sequence i nnnn will leave the address of the i—th 
byte on the stack. The index should be 0 <= i < 
number-of—tab 1e-entries. No check is made on the range of i . 

b --P 

Obtain a core buffer for Block b, leaving the first buffer 
cell address. The block is not read from disk/ and is 
automatically marked as updated. 

BUILD p p p p- 

Read the next word from the imput stream/ see if it already 
exists in the CONTEXT vocabulary ( if so/- pr i nt the warning/ 
"pppp already defined 8 " ) f then enter it into the dictionary 
in the CURRENT vocabulary , 


Exit to ICEbox monitor. 

p --- q 

Return the byte address of the first byte in memory cell p . 


BYTE 
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CASE (C2t/P ) m n-< m ) 

m n CASE < action for m = n > ELSE <drop> THEN 
If m equals n r drop both m and n and execute “the words 
directly following CASE until the next ELSE or THEN j 
otherwise^ drop n but leave nm and execute the words after 
ELSE Cor THEN if no ELSE is used). The selection of one of 
man'j cases can be done b\j: 

m nl CASE < action for m = nl> ELSE 
n2 CASE < action for m=n2 > ELSE 
n3 CASE <action for rn = n2 > ELSE 

otherwise action) THEN THEN THEN 
Cm will still be on the stack in the otherwise section). 


CCALC m-q 

Converts a link address m to the code address q of that 
routine. 

CIN -n 

Leaves the address n of a CRT input routine on the stack. 


CODE CODE nnnn 

Create a dictionary entry defining nnnn as equivalent to the 
following sequence of assembler code. CExtension: set the 

context vocabulary to Assembler. ) 

COM m-- q 

Complement each bit of m CLeave one's complement). 


CONSTANT m CONSTANT nnnn - 

Create a word which when executed pushes m onto the stack. 
Since the "constant" m maybe modified byj the sequence q 9 
nnnn 3 + ! it is oftentimes advantageous to define a variable 

as a constant/ particularly if it is accessed more than it is 
modified. 

CONTEXT CU) - P 

A variable containing a pointer to the vocabulary in which 
dictionary searches are to begin. See CURRENT. 


CONTINUED CE) b - 

Continue interpretation at block b. (The preferred 
implementation in multi-buffer systems is such that the block 
buffer currently being accessed will be used for storeage of 
block fo/ leaving other buffers unaffected. ) 


COPY m n - 

Copies block m to block n. 

COUNT p —— m n 

Leave byte-address m and byte-count n of a message string 
beginning at word-address p. It is presumed that the first 
byste at p contains the byte-count and that the actual message 
starts with the second byte in location p . Typical 1 yj / COUNT 
is followed bN? WRITE or TYPE 

— — n 

Leaves the address n of a CRT output routine on the stack. 


COUT 
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CR 

CURRENT 

DECIMAL 

DELIM 

DGT5 

DIR 

DISKCOPY 

DLIT 

DO 


DP 

DP+i 

DPREC 


Transmit carriage return/1 inefeed codes -to -the selected 
output device. 

C U ) 

A variable containing a pointer to the vocabulary intro which 
new words are “to be entered. CURRENT @ @ leaves the link 

address of “the next entry -to be defined. 


Set: “the numeric conversion base to decimal mode. 

- q 

A variable containing the ASCII character used as a delimiter 
b^ WORD. 

-q 

A variable containing -the number of digits “to “the right: of 
-the decimal point: in -the most recently converted number . If 
-there was no decimal point: “then it is the number of digits. 

m n- 

Lists the first line of each block that starts with "C" from 
block n to block m-1 . 


Copys all blocks from disk drive A to drive B. 

( C ) DLIT 1 h 

Automatically compiled before each double precision literal 
encountered in a colon definition. Execution of DLIT causes 
the contents of the next 2 instruction words to be pushed 
onto the stack. High value is on top. 

( C ) m n- 

Begin a loop/ to be terminated b^ LOOP or tLOOP . The loop 
index begins at n/ and may be modified at the end of the loop 
bvj any positive or negative value. The loop is terminated 
when an increment index reaches or exceeds m r of when a 
decremented index becomes less than m. 

Within nested loops/ the word I always returns the index of 
the innermost loop that is being executed/ while J returns 
the index of the next outer loop/ and K returns the index of 
the second outer loop. 

-q 

A variable containing a pointer to the next available 
dictionary location. 

n - — 

Add the signed value n to the dictionary pointer (DP). As DP 
may* be an internal register rather than a VARIABLE/ it is 
accessible only through HERE and DPt! 

-- q 

A variable containing a flag indicating if the most recently 
converted number was double precision. ( TRUE—Doub1 e 
Precision). The following characters cause double precision 



TERSE 

DROP 

DUMP 

DUP 

E.B 

E .0 

EDIT 

ELSE 

EMPTY 

END 

ENTER 

ERASE 

EXEC 
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conversion: . / , - C as a dash) 

m- 

Drop “the top value from the stack, 
m n- 

Dump the contents oT n memory cells starting at address m. 
Normalboth addresses and contents are shown in the 
current base. 

rn-mm 

Duplicate the top value on the stack. 

-q 

A variable used by ABORT. When an abort is made the current 
block number is stored into E.B. Block 0 is the keyboard 
input buffer. 

--q 

A variable used by ABORT. When an abort is made the current 
offset in the current block CIOFF) is stored into E.O. 

( P ) 

The name of the Edit Vocabulary. IF that vocabulary is 
loaded/ EDIT establishes it as the context vocabulary/ 
thereby making its definitions accessible. 

CC2/P) 

Precede the False part oF an IF* . .ELSE. . .THEN conditional. 
It may be ommitted iF the False part is empty. 

-q 

A variable containing a Flag indicating iF a CR has been 
scanned by WORD . ( TRUE^CR scanned ) 

(C2-/F ) F- 

Mark the end oF a BEGIN..END loop. IF F is true the loop is 
terminated. IF F is False/ control returns to the First word 
aFter the corresponding BEGIN. 


Creates a dictionary entry using the packed character string 
at the HERE with character count in First byte. HERE is leFt 
pointing to the parameter Field. 


CORE 

Marks all block-buffers as empty. Updated blocks are not 
Flushed. Contents oF buffers are undeFined. 

q-- 

Depending on the STATE variable either q is stored in the 
dictionary or address q is loaded into HL and a PCHL is done. 


n —- 

Gets ASCII character input From the selected input device. 
Input is terminated with the First carraige return or aFter n 
characters have been accepted. 


EXPECT 
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FILECOPY 

FIND 

FLD 

FLUSH 

FNAME 

GETC 

GOODBYE 

H. 

HELP 

HERE 

HEX 

HEXLIST 

HEXSHOW 

I 

I + 


m n- 

Copies blocks n -thru m -From drive A “to drive B. 

- p 

Returns -the address of nnnn ( i .e. “the address of -the link 
field) if nnnn can be found in -the d i ct i onar\j J otherwise 
skips -two words in -the definition . 

-p 

A variable containing the field length reserved for a number 
during output conversion. 


Write all blocks -that have benn flagged as "updated” to disk. 
Return when output is done. 

FNAME nnnn-m p 

Find name nnnn in CONTEXT vocabulary C search dictionary ). 
If found/ return address of 1 ink as m and p set to 1 . If not 
found/ m is omitted and p is ®. 

-n 

Inputs an ASCII character n from the selected input device. 


Writes out updated disk-buffers and exits to monitor. 


m- 

Convert and output in hexadecimal mode/ unsigned/ and 
preceded by a blank. BASE is unchanged. Format 

specifications are observed. 

C E ) - 

List the dictionary, starting LAST @ . This starts with the 

CONTEXT vocabulary. 

( U ) -P 

Return the address of the next available dictionary location. 


Switch the numeric conversion base to hexadecimal. 
m b- 

List the ASCII contents and hexadecimal contents of block b 
starting at byte m on the selected output device. 

b- 

Lists ASCI I contents and hexadecimal contents of block b on 
the selected output device. Repeated pressings of the spac 
bar on the control terminal will list the next 256 bytes o 
the block. Pressing any other key will terminate the 
sequence . 

( C ) -m 

Returns the index of an intermost DO-loop . 
m — — - q 

Adds m to the index of the intermost DO-loop. q=m+I 


-h A) 
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I FEND 

IFTRUE 

IHMEB 

INP 

I OFF 

J 

Jt 

K 

Kt 

LAST 

LEAVE 

LINE 


(CZ+/P) f IF < “true part) ELSE <false pari: > THEN 
f IF <true pari: > THEN 

IF s -the first word of a cond i t i ona 1 . If f is true, “the 
words following IF are executed and the words following ELSE 
are not executed, The ELSE pari: of the conditional is 
optional - If f is false/ words between IF and ELSE/ of 
between IF and THEN when no ELSE is used/ are skipped. 
IF-ELSE—THEN conditionals may* be nested . 

C E ) 

Terminate a conditional interpretation sequence begun by* 
IFTRUE . 

(E) f IFTRUE. . .OTHERWISE. . .IFEND- 

Unlike I F . „ ELSE . . THEN / "these conditionals may* be employed 
during interpretation. In conjuction wi“th -the words C and 3 
they* may* be used within a colon definition "to control 
compilation/ although the\j are not -to be compiled. These 
words cannot be nested . 


Nark “the most: recently made dictionary entry* such -that: when 
encountered at: compile “time it: will be executed rather -than 
compi1ed . 

rn-n 

Inputs from port: m returning value n. 

-q 

A variable whose value is “the current: character offset in “the 
c\Jirr^n± block used for the input string being interpreted. 

— — m 

a nested DO—loop/ return the index of the next outer 


m-q 

to DO-loop index J. q = mtJ 
-m 

a nested DO~loop/ return the index of the second outer 


rn q 

to BQ-loop index K. q = mtK 

-P 

A variable containing the compilation address of the most 
recently created dictionary entry* . 

C C ) 

Force termination of a DO-loop at the next opportunity* by* 
setting the loop limit equal to the current value of the 
index. The index itself remains unchanged/ and execution 
proceeds normal ly until LOOP or +LOOP is encountered . 

m-P 

Leave the word address of the beg ininning of line m for the 


( C ) 

Within 
1 oop . 


Adds m 
C C ) 

Within 

1 OOP . 


Adds m 
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block whose number is contained at: BLK . (For edi -ting purposes 
a block is divided into 16 lines/ numbered 0^15/ of 64 
characters . ) 

LINELOAD m b - 

Begin interpreting at: line m of Block b, (0 <= m <= 15) 

LIST b - 

List: ASCII symbolic contents of block b on -the selected 
output device. 

LIT CO LIT m 

Automatica11 m compiled before each literal encountered in a 
colon definition, Execution of LIT causes -the contents of 
-the next: dictionary cell -to be pushed onto “the stack . 

LITERAL n m - 

Store n in “the dictionary (as 2 words: LIT n). Does nothing if 
STATE is set “to compile mode. If DFREC^O -then m is dropped 
else 3 words are compiled: DLIT n m. 

LOAD b - 

Begin interpretation of block b. The block must terminate 
i f s own interpretation w i -t h jS / — > or CONTINUED. 

LOOP ( C ) 

Increment: -the DO-1 oof index one/ terminating -the loop if 

-the new index is equal -to or greater -than -the limit:. 

LOUT -n 

Leaves -the address of a printer output routine on -the stack . 

MAX m n-p 

Leave -the greater of -the -two numbers, 

MIN m n — ■— p 

Leave “the lesser of The Two numbers. 

MINUS m — - -m 

Negate a number h\j Taking its Two's complement. 

MOD m n —— r 

Leave The remainder of rn/n/ with The same sign as m. 

MOVE P q n-- 

Move The contents of n memory cells beginning at address p 
info n cells beginning at address q. The conTenTs of pis 
moved firsTf overlapping of dafa can occur, 

HAND m n ~— q 

Logical AND followed b*p COMplement. 

NEXT 

End of code; Terminafe a code definition. 
m n-q 

Logical OR followed b\jt COMplemenT. 


NOR 
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NOT m-f 

Equivalent to 0 = 

NUMBER 

Convert a character sirring left: in the dictionary buffer b^ 
WORD as a number/ returning the result on “the stack . The 
apperance of characters -that: cannot: be properly interpreted 
will cause the interpreter iro skip 2 instruction words. 

OCTAL 

Set -the number-conversion base to octal - 

OR rn n-q 

Bitwise logical inclusive OR of m and n. 

OTHERWISE C E ) 

An interpreter-level conditional word. See IFTRUE. 

OUTP m n - 

Outputs byjte-value m to output port n. The high byte of n 



goes 

out 

on 

t h e 

upper 

address lines for sub—port numbers. 

OVER 



m 

n — 

m n 

m 


Push 

the 

second 

stack 

va1ue. 


PAGE 

Clears the terminal screen or performs an action suitable to 
the output device currently? active. 

PICK n —- q 

Return the nth value on the stack/ not counting n itself (2 
PICK is equivalent to OVER). 

PRINTOUT m n - 

Lists ASCII contents of blocks n upto but not including m on 
selected output device. Only? blocks starting with “( " are 
listed. The listing is prefaced by? a DIR listing. 

PROT 

Turns on write-protection circuits in the ICEbox. Makes it 
impossible to write to locations below 4000H. 

PUT C n- 

Outputs ASCII character n to the selected output device. 

R> < C ) — n 

Pop the value from the return stack and push it onto the user 
stack. See >R. 

REPEAT CC2-/F) 

Effect an unconditional Jump back to the beginning of a 
BEGIN. .WHILE. .REPEAT loop. See BEGIN . 

ROT mnp - npm 

Rotate the top three values on the stack/ bringing the 
deepest to the top. 
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SCR 

SET 

SHOW 

SKIP 

SF@ 

SPACE 

SPACES 

STATE 

SPACES? 

STYPE 

SWAB 

SWAP 

SYSCOPY 

TABLE 


-- q 

A variable whose value is the current block used Tor -the 
input: sirring being interpreted . 

m p SET nnnn - 

Define a word nnnn which when executed/ will cause the value 
m To be stored air address p . 

b - 

List ASCII symbolic contents of block b on The selected 
output device- Repeated pressings of “the space bar on The 
conTrol Terminal will lisT The nexT block in sequence. 
Pressing an\* oTher ke\j will TerminaTe The sequence* 

C C ) 

Skips The nexT word with in a colon definiTion . Used wiTh FIND 
and NUMBER. 


-P 

ReTurn The address of The Top of The sTack . Ce.g. 1-2 SP@ @ 
. . . . would T\ipe 2 2 1) 


' OuTpuT a space character To The selecTed ouTpuT device. 

n ■-.' ■ ■ ■ ■ ■ 

OuTpuT n spaces To The selecTed ouTpuT device. No acTion for 

n < 1 . 

-q 

A variable whose value is set To compile mode or immediaTe 
mode . 


P-m n 

Leaves sTarfing address m and characTer count n of a message 
string beginning aT address p. n is The lengTh of The message 
afTer all Trailing spaces have been subtracTed sTarTing aT 
address p + 63 . 

q - 

EquivalenT To COUNT TYPE, 
m-n 

Exchange The high and low order b\*Tes of value m. 
m n-n m 

Exchange The Top Two stack values. 


Copies blocks 1 Thru 39 from disc drive A. To drive B. 

TABLE nnnn - 

Define The beginning of a Table of words. The values To be 
entered into The Table musT follow The definiTions of The 
Table. The sequence i nnnn will leave The address of The i—Th 
word on The stack , The index should be © <= i < 

number-of-Tab 1e~entries. No check is made on The range of i. 
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TECO 

TFLAG 

THEN 

TYPE 

U ! 

UERR 

UPDATE 

UNPROT 

VARIABLE 

VPTR 

WHILE 

WHERE 

WORD 


Switch CONTEXT vocabulary -to TECO editor/ making its 
definitions accessible. 


-n 

TFLAG is a variable. It: is used by? 

printable letter output by? PUTC causes 
If TFLAG is ZERO when EXPECT is 
interpreter an OK will be printed as a 


PUTC and EXPECT. Any 
TFLAG to be set tro 1 . 
called by -the outer 
prompt. 


(C®-,P ) 

Terminate an IF. .ELSE . . THEN conditional sequence, 
m n — •— 

Send a string of n characters starting at by?te address m -to 
-term i na 1 . 


m n — 

Stores value m info write protected location n and 
re-protects . 


Undefined ERRor . Print -the name at HERE and -the word 
"undefined"« Does NOT do an ABORT. 


Flag the most: recently referenced block as updated. The 
block will subsequently be -transferred automatical ly to disk 
should its buffer be required for storage of a different: 
block. See FLUSH. 


Makes it possible -to write “to locations below 4@®@h in colon 
def i n i -t i ons . 

rn VARIABLE nnnn — — 

Create a word nnnn which when executed will push the address 
of a variable < initial ized to m ) onto the stack . 


-q 

A variable similar to DP that points to the next available 
variable location. Currently starts at E@@®h and progresses 
toward SP# . VPTR may be set by? the user to a more useful 
location Ci.e. C 0 0 © h in commercial mode). 


C CZ +,P ) f WHILE 

Test the value on the stack and if FALSE exit out of a 
BEGIN..WHILE..REPEAT loop. See BEGIN. 


Output information about the status of Forth after an error 
abort. Indicate at least the last word compiled and the last 
block accessed. 

WORD pppp -— 

Read the next word from the input string being interpreted 
until a delimiter c is found/ storing the packed character 
string at the next available dictionary? location (HERE) with 
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XOR 

ZERO 

C 


CC 


3 


3 3 


■the character count in -the first b\jte « 
m n-ci 

Bitwise logical exclusive OR of m and n. 
p - 

Set: the word a-t location P to 0. 

( P ) 

Stop compi lation. The words following -the left bracket: in a 
colon definition are executed/ not compiled. 

< E ) 

Use: CC ..... f 33 

Unlike BEGIN...END/ these conditionals ma\j be employed 
outside colon definitions. In conjuction with the words C and 
3 the\j ma\j be used within a colon definition to control 
compilation/ although the\) are not compiled. These words can 
be nested. 

C P ) 

Start compilation. Following words are compiled into the 
dictionary• 

CE) f 

Terminates a conditional interpretation sequence begun by CC • 
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